home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 September / LiquidLibrary 2005 Sep - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / gs_typ32.ps < prev    next >
Text File  |  2003-01-03  |  4KB  |  118 lines
  1. %    Copyright (C) 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % Initialization file for Type 32 fonts.
  8.  
  9. % ------ Type 32 fonts ------ %
  10.  
  11. % We need LanguageLevel 2 or higher in order to have defineresource.
  12. languagelevel dup 2 max .setlanguagelevel
  13.  
  14. /BitmapFontInit mark
  15.  
  16. /.makeglyph32 systemdict /.makeglyph32 get
  17. systemdict /.makeglyph32 .undef
  18.  
  19. /addglyph {    % ([wx wy llx lly urx ury] |
  20.         %     [w0x w0y llx lly urx ury w1x w1y vx vy])
  21.         %   <bitmap> <cid> <type32font> addglyph -
  22.   1 index dup 2 index .removeglyphs
  23.   22 string .makeglyph32
  24.         % Stack: metrics bitmap cid font metstr
  25.   3 index () ne {
  26.         % Use G4 encoding to compress the bitmap.
  27.         % Define a string large enough to hold the metrics,
  28.         % an uncompressed bitmap (worst case = 5x expansion),
  29.         % and the 2 RTC codes (3 bytes).
  30.     dup length 4 index length 5 mul add 10 add string
  31.         % Stack: metrics bitmap cid font metstr buffer
  32.     dup 0 3 index putinterval
  33.     dup 2 index length 1 index length 1 index sub getinterval
  34.         % Stack: metrics bitmap cid font metstr buffer bitbuf
  35.     mark /Columns 8 index dup 4 get exch 2 get sub
  36.       /Rows 10 index dup 5 get exch 3 get sub
  37.       /K -1 /EndOfBlock true /BlackIs1 true
  38.     .dicttomark /CCITTFaxEncode filter
  39.         % Stack: metrics bitmap cid font metstr buffer filter
  40.     dup 6 index writestring closefile
  41.         % Find the end of the data by scanning backwards for the RTC.
  42.         % There are 2 RTCs x 12 bits = 3 bytes to remove.
  43.     {
  44.       dup dup length 1 sub get 0 ne { exit } if
  45.       0 1 index length 1 sub getinterval
  46.     } loop
  47.     0 1 index length 3 sub getinterval
  48.     exch pop    % metstr
  49.   } if
  50.   1 index /CharStrings get 3 index 3 -1 roll put
  51.   pop pop pop pop
  52. } obind
  53.  
  54. /removeall {        % <type32font> removeall -
  55.   0 65535 2 index removeglyphs pop
  56. } obind
  57.  
  58. /.removeglyphs systemdict /.removeglyphs get
  59. systemdict /.removeglyphs .undef
  60.  
  61. /removeglyphs {        % <cid_min> <cid_max> <type32font> .removeglyphs -
  62.   3 copy .removeglyphs
  63.   dup /CharStrings get dup {
  64.         % Stack: cidmin cidmax font CharStrings cid bitmap
  65.     pop dup 5 index ge { dup 4 index le { 2 copy undef } if } if pop
  66.   } forall pop pop pop pop
  67. } obind
  68.  
  69. .dicttomark /ProcSet defineresource pop
  70.  
  71. /.cidfonttypes where { pop } { /.cidfonttypes 6 dict def } ifelse
  72. .cidfonttypes begin
  73.  
  74. 4    % CIDFontType 4 = FontType 32
  75. { dup /FontType 32 put
  76.   dup /CharStrings 20 dict put
  77.   1 index exch .buildfont32 exch pop
  78. } bind def
  79.  
  80. end        % .cidfonttypes
  81.  
  82. % Define the BuildGlyph procedure.
  83. % Since Type 32 fonts are indexed by CID, there is no BuildChar procedure.
  84. % The name %Type32BuildGlyph is known to the interpreter.
  85. (%Type32BuildGlyph) cvn {    % <font> <cid> %Type32BuildGlyph -
  86.   1 index /CharStrings get
  87.         % Stack: font cid CharStrings
  88.   dup 2 index .knownget
  89.  { exch pop } { 0 get } ifelse
  90.         % Stack: font cid cstr
  91.   dup //.getmetrics32    % use // because of .undef below
  92.   dup 14 gt {
  93.     8 index 8 index 13 3 roll setcachedevice2
  94.   } {
  95.     4 index 4 index 9 3 roll setcachedevice
  96.   } ifelse
  97.         % Stack: font cid cstr w h nmetrics llx lly
  98.   6 -1 roll 4 -1 roll 1 index length 1 index sub getinterval
  99.         % Stack: font cid w h llx lly bitstr
  100.   dup () eq {
  101.     pop pop pop
  102.   } {
  103.     mark /Columns 6 index /Rows 7 index /K -1 /EndOfBlock false /BlackIs1 true
  104.     .dicttomark /CCITTFaxDecode filter 4 index 4 index true
  105.         % Stack: font cid w h llx lly filter w h true
  106.     [ 1 0 0 1 11 -2 roll exch neg exch neg ] 5 -1 roll imagemask
  107.   } ifelse
  108.   pop pop pop pop
  109. } bind def
  110.  
  111. systemdict /.getmetrics32 .undef
  112.  
  113. buildfontdict 32 /.buildfont32 cvx put
  114.  
  115. 32 dup /FontType defineresource pop
  116.  
  117. .setlanguagelevel
  118.